home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / calendek / form1.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1995-03-02  |  981 b   |  38 lines
  1. VERSION 2.00
  2. Begin Form Form1 
  3.    Caption         =   "Form1"
  4.    ClientHeight    =   5820
  5.    ClientLeft      =   1080
  6.    ClientTop       =   1485
  7.    ClientWidth     =   7365
  8.    Height          =   6225
  9.    Left            =   1020
  10.    LinkTopic       =   "Form1"
  11.    ScaleHeight     =   5820
  12.    ScaleWidth      =   7365
  13.    Top             =   1140
  14.    Width           =   7485
  15.    Begin TextBox Text1 
  16.       Height          =   315
  17.       Left            =   330
  18.       TabIndex        =   1
  19.       Text            =   "Text1"
  20.       Top             =   690
  21.       Width           =   2415
  22.    End
  23.    Begin CommandButton Command1 
  24.       Caption         =   "Command1"
  25.       Height          =   405
  26.       Left            =   2790
  27.       TabIndex        =   0
  28.       Top             =   630
  29.       Width           =   975
  30.    End
  31. Option Explicit
  32. Sub Command1_Click ()
  33.     text1.Text = GetDate(text1)
  34. End Sub
  35. Sub Form_Load ()
  36.     text1 = Date
  37. End Sub
  38.